diff --git a/collects/mrlib/tex-table.rkt b/collects/mrlib/tex-table.rkt
index 5d5c65a3d7..1242bd797b 100644
--- a/collects/mrlib/tex-table.rkt
+++ b/collects/mrlib/tex-table.rkt
@@ -181,14 +181,14 @@
 ;; checks to see if there are duplicates
 #;
 (define (find-dups)
-  (let ([ht (make-hash-table 'equal)])
+  (let ([ht (make-hash)])
     (for-each
      (λ (line)
        (let ([name (list-ref line 0)]
              [obj (list-ref line 1)])
-         (hash-table-put! ht name (cons obj (hash-table-get ht name '())))))
+         (hash-set! ht name (cons obj (hash-ref ht name '())))))
      tex-shortcut-table)
-    (hash-table-for-each
+    (hash-for-each
      ht
      (λ (k v)
        (unless (= 1 (length v))