diff --git a/ansi-tests/gclload.lsp b/ansi-tests/gclload.lsp
index 0219459296c6943f2ecb51fe011aaa227b1f99a4..743c435b2b0f79303db39fe4383236fb6590758b 100644
--- a/ansi-tests/gclload.lsp
+++ b/ansi-tests/gclload.lsp
@@ -4,7 +4,12 @@
 ;;; with arbitrary legal garbage.
 ;; (pushnew :ansi-tests-strict-initial-element *features*)
 
+#+:(and clisp win32)            ; w2k exits on (disassemble 'car)
+(without-package-lock ("SYS")
+ (defun sys::disassemble-machine-code (a b c)
+   (format t "~&<~S ~S ~S>~%" a b c)))
+
 (load "gclload1.lsp")
 (load "gclload2.lsp")
 (in-package :cl-test)
-(regression-test:do-tests)
+(time (regression-test:do-tests))