--- loncom/interface/lonsearchcat.pm	2003/01/06 13:54:25	1.162
+++ loncom/interface/lonsearchcat.pm	2003/01/14 18:47:50	1.163
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.162 2003/01/06 13:54:25 www Exp $
+# $Id: lonsearchcat.pm,v 1.163 2003/01/14 18:47:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2963,7 +2963,12 @@ sub start_fresh_session {
 1;
 
 sub cleanup {
-    untie %groupsearch_db if (tied(%groupsearch_db));
+    if (tied(%groupsearch_db)) {
+	&Apache::lonnet::logthis('Cleanup searchcat: groupsearch_db');
+        unless (untie(%groupsearch_db)) {
+	  &Apache::lonnet::logthis('Failed cleanup searchcat: groupsearch_db');
+        }
+    }
     &Apache::lonmysql::disconnect_from_db();
 }