diff --git a/uiop/image.lisp b/uiop/image.lisp
index fa1e9881c260dd8ed66ec1e09296b82dc5606f3e..025d5a5b8f191aed03108f2abb193498476bded6 100644
--- a/uiop/image.lisp
+++ b/uiop/image.lisp
@@ -51,7 +51,7 @@ before the image dump hooks are called and before the image is dumped.")
     "Functions to call (in order) when before an image is dumped")
 
   (deftype fatal-condition ()
-    `(and serious-condition #+ccl (not ccl:process-reset))))
+    `(and serious-condition #+clozure (not ccl:process-reset))))
 
 ;;; Exiting properly or im-
 (with-upgradability ()