diff --git a/ansi-tests/load-symbols.lsp b/ansi-tests/load-symbols.lsp
index 27c014d054dd72bb50c2446d80cef8ae95a1b232..5bcd1fdbe100855b52fb8fc22b25aad8605cc9b8 100644
--- a/ansi-tests/load-symbols.lsp
+++ b/ansi-tests/load-symbols.lsp
@@ -12,3 +12,5 @@
 (load "symbol-name.lsp")
 (load "special-operator-p.lsp")
 (load "set.lsp")
+(load "remprop.lsp")
+
diff --git a/ansi-tests/remprop.lsp b/ansi-tests/remprop.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..8950b8258e8435fb1788367c73429f48f85abf06
--- /dev/null
+++ b/ansi-tests/remprop.lsp
@@ -0,0 +1,80 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Mon Jul 12 18:25:53 2004
+;;;; Contains: Tests for REMPROP
+
+(in-package :cl-test)
+
+(deftest remprop.1
+  (let ((sym (gensym)))
+    (values
+     (symbol-plist sym)
+     (multiple-value-list (remprop sym :foo))
+     (symbol-plist sym)))
+  nil (nil) nil)
+
+(deftest remprop.2
+  (let ((sym (gensym)))
+    (values
+     (symbol-plist sym)
+     (copy-list (setf (symbol-plist sym) '(:foo 0)))
+     (multiple-value-list (notnot-mv (remprop sym :foo)))
+     (symbol-plist sym)))
+  nil (:foo 0) (t) nil)
+
+(deftest remprop.3
+  (let ((sym (gensym)))
+    (values
+     (symbol-plist sym)
+     (copy-list (setf (symbol-plist sym) (list :bar 1 :foo 0 :baz 2)))
+     (multiple-value-list (notnot-mv (remprop sym :foo)))
+     (copy-list (symbol-plist sym))
+     (multiple-value-list (notnot-mv (remprop sym :foo)))
+     (symbol-plist sym)))     
+  nil
+  (:bar 1 :foo 0 :baz 2)
+  (t)
+  (:bar 1 :baz 2)
+  (nil)
+  (:bar 1 :baz 2))
+
+(deftest remprop.4
+  (let ((sym (gensym)))
+    (values
+     (symbol-plist sym)
+     (copy-list (setf (symbol-plist sym) (list :bar 1 :foo 0 :baz 2 :foo 3)))
+     (multiple-value-list (notnot-mv (remprop sym :foo)))
+     (copy-list (symbol-plist sym))
+     (multiple-value-list (notnot-mv (remprop sym :foo)))
+     (symbol-plist sym)))
+  nil
+  (:bar 1 :foo 0 :baz 2 :foo 3)
+  (t)
+  (:bar 1 :baz 2 :foo 3)
+  (t)
+  (:bar 1 :baz 2))
+
+;;; Error tests
+
+(deftest remprop.error.1
+  (signals-error (remprop) program-error)
+  t)
+
+(deftest remprop.error.2
+  (signals-error (remprop (gensym)) program-error)
+  t)
+
+(deftest remprop.error.3
+  (signals-error (remprop (gensym) nil nil) program-error)
+  t)
+
+(deftest remprop.error.4
+  (loop for x in *mini-universe*
+	unless (or (symbolp x)
+		   (eval `(signals-error (remprop ',x nil) type-error)))
+	collect x)
+  nil)
+
+
+
+