From f50c3daac23f126b7e91d3e767657fd59e349081 Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Mon, 10 Jun 2013 12:00:00 -0500
Subject: [PATCH] Fix issue 17 in remove-tags.

---
 lisp-unit.lisp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 66a4213..efaae1a 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -362,12 +362,11 @@ assertion.")
       (if (null package)
           (clrhash *tag-db*)
           (remhash (find-package package) *tag-db*))
-      (with-package-tags (tags package)
-        (with-package-table (table package)
-          (loop for tag in tags
-                unless (remhash tag table) do
-                (warn "No tag ~A in package ~A to remove."
-                      tag (package-name package)))))))
+      (with-package-tags (tag-table package)
+        (loop for tag in tags
+              unless (remhash tag tag-table) do
+              (warn "No tag ~A in package ~A to remove."
+                    tag (package-name package))))))
 
 ;;; Assert macros
 
-- 
2.11.4.GIT