diff --git a/test/test-run-program.script b/test/test-run-program.script
index cf9414c4424dcad29a522bf57e931e0b4aa6a45b..eb1424811957d21e7a1fb62796cbfa9f3522de1e 100644
--- a/test/test-run-program.script
+++ b/test/test-run-program.script
@@ -5,7 +5,7 @@
 (defun dewindowize (x)
   (block ()
     (setf x (remove (code-char 13) x))
-    #+(and sbcl os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
+    #+(and (or sbcl lispworks) os-windows) ;; buggy implementations output extra space on Windows. Also old CCL.
     (when (eql #\space (last-char x))
       (return (subseq x 0 (1- (length x)))))
     x))