diff --git a/s48/procedure-tables/packages.scm b/s48/procedure-tables/packages.scm
index 8b8383e..8d29f1d 100644
--- a/s48/procedure-tables/packages.scm
+++ b/s48/procedure-tables/packages.scm
@@ -3,8 +3,7 @@
         more-types
         loopholes
         closures
-        disclosers
-        debug-data)
+        disclosers)
   (files procedure-hash))
 
 (define-structure procedure-tables procedure-tables-interface
diff --git a/s48/procedure-tables/procedure-hash.scm b/s48/procedure-tables/procedure-hash.scm
index d898158..ac3eb61 100644
--- a/s48/procedure-tables/procedure-hash.scm
+++ b/s48/procedure-tables/procedure-hash.scm
@@ -5,7 +5,4 @@
 ;;; the distribution.
 
 (define (procedure-hash proc)
-  (debug-data-uid
-   (template-debug-data
-    (closure-template
-     (loophole :closure proc)))))
+  (template-id (closure-template (loophole :closure proc))))