diff --git a/collects/tex2page/tex2page-aux.ss b/collects/tex2page/tex2page-aux.ss
index c3748e5cea..c3af75d08c 100644
--- a/collects/tex2page/tex2page-aux.ss
+++ b/collects/tex2page/tex2page-aux.ss
@@ -13,6 +13,10 @@
   (lambda (ht k . d)
     (hash-table-get ht k (let ((d (if (null? d) #f (car d)))) (lambda () d)))))
 
+(define table-put!
+  (lambda (ht k v)
+    (hash-table-put! ht k v)))
+
 ; ensure shell-magic above
 ;Configured for Scheme dialect plt by scmxlate, v 2004-09-08,
 ;(c) Dorai Sitaram,