diff --git a/collects/tests/web-server/private/cache-table-test.ss b/collects/tests/web-server/private/cache-table-test.ss
index de88a4ec96..5a9dafb68e 100644
--- a/collects/tests/web-server/private/cache-table-test.ss
+++ b/collects/tests/web-server/private/cache-table-test.ss
@@ -35,3 +35,8 @@
                    (cache-table-lookup! ct 'foo (lambda () #t))
                    (cache-table-clear! ct)
                    (cache-table-lookup! ct 'foo (lambda () #f)))))))
+
+#|
+(require (planet schematics/schemeunit:3/text-ui))
+(run-tests cache-table-tests)
+|#
\ No newline at end of file
diff --git a/collects/web-server/private/cache-table.ss b/collects/web-server/private/cache-table.ss
index 2b761a329b..85edeecf30 100644
--- a/collects/web-server/private/cache-table.ss
+++ b/collects/web-server/private/cache-table.ss
@@ -25,12 +25,7 @@
      (call-with-semaphore
       sema
       (lambda ()
-        (hash-ref
-         ht entry-id
-         (lambda ()
-           (define entry (entry-thunk))
-           (hash-set! ht entry-id entry)
-           entry)))))))
+        (hash-ref! ht entry-id entry-thunk))))))
 
 (provide/contract
  [rename new-cache-table make-cache-table