diff --git a/svgcam.lisp b/svgcam.lisp
index f3c0ea4..d82c34d 100644
--- a/svgcam.lisp
+++ b/svgcam.lisp
@@ -10,6 +10,8 @@
 
 (defparameter gcode-preamble '(((:G . 1) (:X . 0) (:Y . 0) (:F . 100))
                                ))
+(defparameter gcode-postamble '(((:G . 0) (:Z . 1))
+                                ((:G . 0) (:X . 0) (:Y . 0))))
 
 (defun reshape-to-2x3 (vs)
   (clem:array->matrix
@@ -459,4 +461,4 @@
                                  (format nil "~,2F" n)))
            (emit-assignment (reg) (format nil "~A~A" (car reg) (gcode-number (cdr reg))))
            (emit-line (line) (format nil "~{~A~^ ~}" (mapcar #'emit-assignment line))))
-    (format nil "~{~A~^~%~}" (mapcar #'emit-line (svgm-gcode svgm)))))
+    (format nil "~{~A~^~%~}" (mapcar #'emit-line (append (svgm-gcode svgm) gcode-postamble)))))