diff --git a/lib/qml-ui-vars.lisp b/lib/qml-ui-vars.lisp
index 7ad405e..129e712 100644
--- a/lib/qml-ui-vars.lisp
+++ b/lib/qml-ui-vars.lisp
@@ -110,7 +110,7 @@
                   (third item)
                   diff-class
                   (fourth item))))
-      (terpri)
+      (terpri out)
       t)))
 
 (defun run ()
@@ -123,7 +123,8 @@
               (when (probe-file new)
                 (delete-file new))
               (rename-file ui (file-namestring new))
-              (format t "~%UI file generated: ~S~%~%" new)))
+              (format t "~%UI file generated: ~S~%~%" new)
+              (load new))) ; make changes available immediately
           (format t "~%File not generated, please correct names and try again.~%~%")))))
 
 (run)