diff --git a/demos/02-demo.lisp b/demos/02-demo.lisp
index 7c397b7..ca068fb 100644
--- a/demos/02-demo.lisp
+++ b/demos/02-demo.lisp
@@ -4,7 +4,7 @@
 
 (in-package :clog-demo-2)
 
-(defvar *global-list-box-hash* (make-hash-table :test 'equalp)
+(defvar *global-list-box-hash* (make-hash-table* :test 'equalp)
   "Username to update function")
 
 (defun send-message (user msg)