diff --git a/clim/frames.lisp b/clim/frames.lisp
index 28e6d6d8a7f96ee53d9b773d958a1780584298c5..6d58e6aab2ec3458c502d78eed60c709daa5a8a4 100644
--- a/clim/frames.lisp
+++ b/clim/frames.lisp
@@ -1489,10 +1489,10 @@
       button-press-event)))
 
 (defun find-frame-pane-of-type (frame type)
-  (prog1 (map-over-sheets #'(lambda (sheet)
+  (map-over-sheets #'(lambda (sheet)
                         (when (typep sheet type)
                           (return-from find-frame-pane-of-type sheet)))
-                          (frame-top-level-sheet frame))))
+                          (frame-top-level-sheet frame)))
 
 (defmethod frame-standard-output ((frame standard-application-frame))
   *standard-output*
diff --git a/silica/db-box.lisp b/silica/db-box.lisp
index ee10bca33c22012dfe72cca04c6f5f0dcba4e8ce..38ed260d8fc8500c6e372550ba431f76a6539c1c 100644
--- a/silica/db-box.lisp
+++ b/silica/db-box.lisp
@@ -21,7 +21,7 @@
 (defmethod initialize-instance :after 
 	   ((pane box-pane) &key contents &allow-other-keys)
   (dolist (child contents)
-    (typecase child                     ;FIXME temporarily changed etypecase to typecase
+    (typecase child                     ;FIXME temporarily changed etypecase to typecase -- jacek.zlydach, 2017-05-14
       (number)
       ((member :fill))
       (pane (sheet-adopt-child pane child))