diff --git a/code/symbol.lisp b/code/symbol.lisp
index 47021277f60b8b67c86344533a26e4aacc95a165..5f06b97a280c8ea48a204815a3fb85abe025baa2 100644
--- a/code/symbol.lisp
+++ b/code/symbol.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.13 1992/12/11 17:16:00 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.14 1993/05/18 19:54:42 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -98,7 +98,13 @@
 
 (defun make-symbol (string)
   "Make and return a new symbol with the STRING as its print name."
-  (make-symbol string))
+  #-gengc (make-symbol string)
+  #+gengc (%make-symbol (random most-positive-fixnum) string))
+
+#+gengc
+(defun symbol-hash (symbol)
+  "Return the hash value for symbol."
+  (symbol-hash symbol))
 
 (defun get (symbol indicator &optional (default nil))
   "Look on the property list of SYMBOL for the specified INDICATOR.  If this