diff --git a/ansi-tests/load-conditions.lsp b/ansi-tests/load-conditions.lsp
index 43c8048f331115a63140a46b148a274a542651fa..05b03fa6f775800398fa294f6ce9d4e077d55a4d 100644
--- a/ansi-tests/load-conditions.lsp
+++ b/ansi-tests/load-conditions.lsp
@@ -12,5 +12,7 @@
 (load "ignore-errors.lsp")
 (compile-and-load "define-condition-aux.lsp")
 (load "define-condition.lsp")
+(load "restart-bind.lsp")
+
 
 
diff --git a/ansi-tests/restart-bind.lsp b/ansi-tests/restart-bind.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..bb1b38e168cc5579c045b0cdf28194c5e288cabf
--- /dev/null
+++ b/ansi-tests/restart-bind.lsp
@@ -0,0 +1,34 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Fri Mar 21 22:28:53 2003
+;;;; Contains: Tests for RESTART-BIND
+
+(in-package :cl-test)
+
+(deftest restart-bind.1
+  (restart-bind () nil)
+  nil)
+
+(deftest restart-bind.2
+  (restart-bind () (values)))
+  
+(deftest restart-bind.3
+  (restart-bind () (values 'a 'b 'c 'd 'e 'f))
+  a b c d e f)
+
+(deftest restart-bind.4
+  (block nil
+    (restart-bind () (return 'good) 'bad))
+  good)
+
+(deftest restart-bind.5
+  (block done
+    (tagbody
+     (restart-bind () (go 10) (return-from done 'bad))
+     10
+     (return-from done 'good)))
+  good)
+
+
+
+