@@ -75,11 +75,11 @@
 					      (items (cadr x)))
 					  (list name (string-split items)))))
 				  itemsdat))))
 	(let ((debuglevel 5))
 	  (debug:print 5 "item-assoc->item-list: itemsdat => itemlst ")
-	  (if (>= *verbosity* 5)
+	  (if (debug:debug-mode 5)
 	      (begin
 		(pp itemsdat)
 		(print " => ")
 		(pp itemlst))))
 	(if (> (length itemlst) 0)