diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp
index 7d837f1293aa7f44636cfb479ec9c1702d790da0..40558d19cde1415d8afa36c09745af30dbec5911 100644
--- a/uiop/common-lisp.lisp
+++ b/uiop/common-lisp.lisp
@@ -53,9 +53,9 @@
   (unless (fboundp 'external-process-wait)
     (in-development-mode
      (defun external-process-wait (proc)
-       (when (external-process-pid proc))
+       (when (external-process-pid proc)
          (with-interrupts-enabled
-             (wait-on-semaphore (external-process-completed proc)))))))
+             (wait-on-semaphore (external-process-completed proc))))))))
 #+clozure
 (in-package :uiop/common-lisp)
 
diff --git a/uiop/utility.lisp b/uiop/utility.lisp
index 4d6db338f1a959419a8cb1c6447bc8d27355787b..fbc17631e924a1157556dc0906d3c087638d4b49 100644
--- a/uiop/utility.lisp
+++ b/uiop/utility.lisp
@@ -187,8 +187,8 @@ Returns two values: \(A B C\) and \(1 2 3\)."
 
 
 ;;; Characters
-(with-upgradability ()
-  (defconstant +non-base-chars-exist-p+ (not (subtypep 'character 'base-char))) ;; ECL, LW, SBCL
+(with-upgradability () ;; base-char != character on ECL, LW, SBCL, Genera. LW also has SIMPLE-CHAR.
+  (defconstant +non-base-chars-exist-p+ (not (subtypep 'character 'base-char)))
   (when +non-base-chars-exist-p+ (pushnew :non-base-chars-exist-p *features*)))
 
 (with-upgradability ()