diff --git a/code/hash.lisp b/code/hash.lisp
index bd179ebe222aa281b46e8d52f7b4b4495802db65..de2c3ad72b6e11534282970cf8c3eb1f33347847 100644
--- a/code/hash.lisp
+++ b/code/hash.lisp
@@ -419,8 +419,8 @@
     (list (sxhash-list s-expr depth))
     (fixnum
      (ldb sxhash-bits-byte s-expr))
-    #+nil
-    (structure ???)
+    (structure
+     (internal-sxhash (type-of s-expr) depth))
     ;; Other-pointer types.
     (simple-string (sxhash-simple-string s-expr))
     (symbol (sxhash-simple-string (symbol-name s-expr)))