diff --git a/ansi-tests/compileit.lsp b/ansi-tests/compileit.lsp
index 250b9ccf1987b186c1579f2b0445234bc0420f7e..17dc477ce581b50a34cc5dbd707c4df96e32bf20 100644
--- a/ansi-tests/compileit.lsp
+++ b/ansi-tests/compileit.lsp
@@ -4,11 +4,6 @@
 ;;; with arbitrary legal garbage.
 ;; (pushnew :ansi-tests-strict-initial-element *features*)
 
-#+(and clisp (or win32 cygwin))       ; 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)))
-
 #+allegro (run-shell-command "rm -f *.fasl")
 #+cmucl (run-program "rm -f *.x86f")
 
diff --git a/ansi-tests/doit.lsp b/ansi-tests/doit.lsp
index 77c62258a521ce89a69435d6ac55fdf33d427bc9..2b38997b2e318dc1e8c20d9da3bfc73303fa3cd9 100644
--- a/ansi-tests/doit.lsp
+++ b/ansi-tests/doit.lsp
@@ -4,11 +4,6 @@
 ;;; with arbitrary legal garbage.
 ;; (pushnew :ansi-tests-strict-initial-element *features*)
 
-#+(and clisp (or win32 cygwin))       ; 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)))
-
 #+allegro (run-shell-command "rm -f *.fasl")
 #+allegro (setq *enclose-printer-errors* nil)
 #+cmucl (run-program "rm -f *.x86f")
diff --git a/ansi-tests/gclload.lsp b/ansi-tests/gclload.lsp
index 0a5cd3ac126a980e767fbfcfc5edcaadd722f427..40b7158d2f5127fdec8b395ed7400c03f794a6b5 100644
--- a/ansi-tests/gclload.lsp
+++ b/ansi-tests/gclload.lsp
@@ -4,11 +4,6 @@
 ;;; with arbitrary legal garbage.
 ;; (pushnew :ansi-tests-strict-initial-element *features*)
 
-#+(and clisp (or win32 cygwin))       ; 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)))
-
 #+allegro (run-shell-command "rm -f *.fasl")
 #+allegro (setq *enclose-printer-errors* nil)
 #+cmu (run-program "rm" '("-f" "*.x86f" "*.sparcf" "*.ppcf"))