diff --git a/ansi-tests/get-universal-time.lsp b/ansi-tests/get-universal-time.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..f79e1cedc431fde301986da3eb46edef4d6c6c40
--- /dev/null
+++ b/ansi-tests/get-universal-time.lsp
@@ -0,0 +1,59 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sun May  8 19:25:41 2005
+;;;; Contains: Tests of GET-UNIVERSAL-TIME, GET-DECODED-TIME
+
+(in-package :cl-test)
+
+;;; Note -- this ignores the possibilty that the time cannot
+;;; be determined.
+
+(deftest get-universal-time.1
+  (notnot-mv (typep (get-universal-time) 'unsigned-byte))
+  t)
+
+(deftest get-universal-time.2
+  (let* ((time1 (get-universal-time))
+	 (vals (multiple-value-list (get-decoded-time)))
+	 (time2 (get-universal-time)))
+    (when (= time1 time2)
+      (let ((vals2 (multiple-value-list (decode-universal-time time1))))
+	(assert (= (length vals) 9))
+	(assert (= (length vals2) 9))
+	(assert (equal (subseq vals 0 7)
+		       (subseq vals2 0 7)))
+	(assert (if (elt vals 7) (elt vals2 7) (not (elt vals2 7))))
+	(assert (= (elt vals 8) (elt vals2 8)))))
+    (values)))
+
+(deftest get-universal-time.3
+  (let* ((first (get-universal-time))
+	 (prev first))
+    (loop for time = (get-universal-time)
+	  do (assert (>= time prev))
+	  do (setf prev time)
+	  until (>= time (+ 5 first))))
+  nil)
+
+;;; Error tests
+
+(deftest get-universal-time.error.1
+  (signals-error (get-universal-time nil) program-error)
+  t)
+
+(deftest get-universal-time.error.2
+  (signals-error (get-universal-time :allow-other-keys t) program-error)
+  t)
+
+(deftest get-decoded-time.error.1
+  (signals-error (get-decoded-time nil) program-error)
+  t)
+
+(deftest get-decoded-time.error.2
+  (signals-error (get-decoded-time :allow-other-keys t) program-error)
+  t)
+
+
+
+	       
+
diff --git a/ansi-tests/load-environment.lsp b/ansi-tests/load-environment.lsp
index 1cbab7efa8431d3678664522ca5efa403335823e..07cb2987fec674427f526a929dc4e02e32caa811 100644
--- a/ansi-tests/load-environment.lsp
+++ b/ansi-tests/load-environment.lsp
@@ -15,3 +15,4 @@
 
 (load "decode-universal-time.lsp")
 (load "encode-universal-time.lsp")
+(load "get-universal-time.lsp")