diff --git a/test/domtest.lisp b/test/domtest.lisp
index 6e72328..1453734 100644
--- a/test/domtest.lisp
+++ b/test/domtest.lisp
@@ -274,13 +274,6 @@
   (with-attributes (|type|) element 
    `(equal ,|type| "text/xml")))
 
-#-allegro
-(defun translate-uri-equals (element)
-  (declare (ignore element))
-  (warn "oops, assert-uri-equals needs Franz' URI package")
-  (throw 'give-up nil))
-
-#+allegro
 (defun translate-uri-equals (element)
   (with-attributes
       (|actual|