diff --git a/src/rocketman.lisp b/src/rocketman.lisp
index 4ba88fb..21c45cf 100644
--- a/src/rocketman.lisp
+++ b/src/rocketman.lisp
@@ -78,6 +78,9 @@
 (defun rocket-row ()
   (slot-value *rocket* 'rocketman::row))
 
+(defmethod (setf rocket-row) (new-value)
+  (rocketman:set-row *rocket* (max 0 new-value)))
+
 (defun rocket-load-file (file)
   (rocketman:load-file *rocket* (truename file)))