diff --git a/ansi-tests/load-objects.lsp b/ansi-tests/load-objects.lsp
index 904fa56366f807cc1f36d96f242f29955142386b..1b1b89fea8b7a3c1a9a6f735ab9584781ab39222 100644
--- a/ansi-tests/load-objects.lsp
+++ b/ansi-tests/load-objects.lsp
@@ -48,3 +48,4 @@
 (load "compute-applicable-methods.lsp")
 (load "find-method.lsp")
 (load "add-method.lsp")
+(load "unbound-slot.lsp")
diff --git a/ansi-tests/unbound-slot.lsp b/ansi-tests/unbound-slot.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..36045c6b675120093ad602b9471c8066ae6ecc56
--- /dev/null
+++ b/ansi-tests/unbound-slot.lsp
@@ -0,0 +1,36 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Wed Jun  4 20:14:26 2003
+;;;; Contains: Tests for UNBOUND-SLOT, UNBOUND-SLOT-INSTANCE
+
+(in-package :cl-test)
+
+(defclass ubs-class-01 ()
+  ((a :initarg :a)))
+
+(deftest unbound-slot.1
+  (let ((obj (make-instance 'ubs-class-01)))
+    (handler-case
+     (slot-value obj 'a)
+     (unbound-slot (c)
+		   (values
+		    (typep* c 'cell-error)
+		    (eqt (unbound-slot-instance c) obj)
+		    (cell-error-name c)))))
+  t t a)
+
+(defclass ubs-class-02 ()
+  ((b :allocation :class)))
+
+(deftest unbound-slot.2
+  (let ((obj (make-instance 'ubs-class-02)))
+    (handler-case
+     (slot-value obj 'b)
+     (unbound-slot (c)
+		   (values
+		    (typep* c 'cell-error)
+		    (eqt (unbound-slot-instance c) obj)
+		    (cell-error-name c)))))
+  t t b)
+
+