diff --git a/base64.asd b/base64.asd
index cc48ee541657e492a626e64502d4fa2a70c1edaa..a89a0dd64b1f94847a860edecf8ac623afaaf2f7 100644
--- a/base64.asd
+++ b/base64.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: base64.asd,v 1.14 2003/04/15 16:03:54 kevin Exp $
+;;;; $Id: base64.asd,v 1.15 2003/04/15 16:05:39 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package :asdf)
@@ -39,5 +39,5 @@
    ))
 
 (defmethod perform ((o test-op) (c (eql (find-system :base64))))
-  (or (base64::test-base64)
+  (or (test-base64)
       (error "test-op failed")))
diff --git a/package.lisp b/package.lisp
index 71f6405cae780b8ca508db2a6e042ef19f485f90..fca5cd21baa25b1b30412b7ba6c02a92efc69989 100644
--- a/package.lisp
+++ b/package.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id: package.lisp,v 1.3 2003/01/14 11:59:44 kevin Exp $
+;;;; $Id: package.lisp,v 1.4 2003/04/15 16:05:39 kevin Exp $
 ;;;;
 ;;;; *************************************************************************
 
@@ -37,6 +37,8 @@
 	   #:*uri-encode-table*
 	   #:*uri-decode-table*
 	   #:make-decode-table
+
+	   #:test-base64
 	   ))
 
 (in-package #:cl-base64)