diff --git a/doc/EQL-Slime-Integration.htm b/doc/EQL-Slime-Integration.htm
index 7fc493e..6f1376c 100644
--- a/doc/EQL-Slime-Integration.htm
+++ b/doc/EQL-Slime-Integration.htm
@@ -50,7 +50,7 @@
       return Cnil;
   }
       </pre>
-      <p>Now the Lisp closure will run on the UI/main thread, and the implementation of the Qt function <code>runInGuiThread</code> is as simple as:</p>
+      <p>Now the Lisp closure will run on the UI/main thread, and the implementation of the Qt function <code>runOnUiThread</code> is as simple as:</p>
       <pre>
 
   Q_INVOKABLE void runOnUiThread(void* closure) // note Q_INVOKABLE
diff --git a/examples/7-Sokoban/eql-sokoban.lisp b/examples/7-Sokoban/eql-sokoban.lisp
index 6eacf01..1f7333b 100644
--- a/examples/7-Sokoban/eql-sokoban.lisp
+++ b/examples/7-Sokoban/eql-sokoban.lisp
@@ -123,7 +123,7 @@
 
 (let (pixmaps)
   (defun create-item (type)
-    (let* ((file (in-home (format nil "examples/7-Sokoban/pics/~(~A~).png" type)))
+    (let* ((file (in-src (format nil "examples/7-Sokoban/pics/~(~A~).png" type)))
            (pixmap (cdr (or (assoc file pixmaps :test 'string=)
                             (first (push (cons file (qnew "QPixmap(QString)" file))
                                          pixmaps)))))
diff --git a/helper/generate.lisp b/helper/generate.lisp
index 392cd84..7571274 100644
--- a/helper/generate.lisp
+++ b/helper/generate.lisp
@@ -300,7 +300,7 @@
           ((upper-case-p (char type 0))
            (format nil "(~A)0" type))
           (t
-           (error (format nil "No C null value defined for ~S" arg))))))
+           (error "No C null value defined for ~S" arg)))))
 
 (defun arg-to-simple-c (arg)
   (x:cc (if (and (const-p arg)
@@ -667,7 +667,7 @@
                                                       type
                                                       (1+ (if-it (position super methods :test 'string= :key 'class-name*)
                                                               it
-                                                              (error (format t "~%Class missing: ~S~%~%" super)))))
+                                                              (error "~%Class missing: ~S~%~%" super))))
                                               "QObject")
                                           class)
                                   (dolist (fun (rest obj))
diff --git a/my_app/tr.lisp b/my_app/tr.lisp
index 9d7bf7a..31ef54a 100644
--- a/my_app/tr.lisp
+++ b/my_app/tr.lisp
@@ -22,5 +22,5 @@
                       context
                       source
                       (if (= -1 n) "" (format nil ", ~D" n))))
-            (error (format nil "[TR: error] ~S from context ~S doesn't evaluate to a string" src context)))))
+            (error "[TR: error] ~S from context ~S doesn't evaluate to a string" src context))))
     form))