diff --git a/test/make-hello-world.lisp b/test/make-hello-world.lisp
index f7644c96182a7b4597f7a4d75eaf0649d7409db4..c8be60581ae13610cb14c4d78b917acfdd632e60 100644
--- a/test/make-hello-world.lisp
+++ b/test/make-hello-world.lisp
@@ -1,4 +1,5 @@
 ;;; -*- Lisp -*-
+#+lispworks (lispworks:load-all-patches)
 (load "script-support.lisp")
 (load-asdf)
 #+ecl (require :cmp)
diff --git a/test/script-support.lisp b/test/script-support.lisp
index 299a25d5990fc36dba283309e9717ddb7c45dfe1..639e0cc544b877bb7581019376c8ab5ba3b6ba5b 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -63,7 +63,10 @@ Some constraints:
   (when (or (< system::*gcl-major-version* 2)
             (and (= system::*gcl-major-version* 2)
                  (< system::*gcl-minor-version* 7)))
-    (shadowing-import 'system:*load-pathname* :asdf-test)))
+    (shadowing-import 'system:*load-pathname* :asdf-test))
+  #+lispworks
+  (setf system:*stack-overflow-behaviour* :warn)
+  (setf system:*sg-default-size* 200000))
 
 #+(or gcl genera)
 (unless (fboundp 'ensure-directories-exist)
diff --git a/test/test-deferred-warnings.script b/test/test-deferred-warnings.script
index 3ee7f107deb3eee39bf3c9f506cebb9b76b88dd7..f8e3ab8d0037e4998b7f70bc0970208416513420 100644
--- a/test/test-deferred-warnings.script
+++ b/test/test-deferred-warnings.script
@@ -12,7 +12,7 @@
        t)
    (compile-file-error () nil)))
 
-#-ecl
+#+(or clozure sbcl)
 (assert
  (handler-case
      (let ((*compile-file-warnings-behaviour* :error))