r4872: *** empty log message ***

diff --git a/parse-common.lisp b/parse-common.lisp
index 198041445fcf9baf870f8ac45a28af19436dc64c..38abc8740dabaa85e960cf35fbb7f3cd7e264f97 100644 (file)
--- a/parse-common.lisp
+++ b/parse-common.lisp
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: parse-common.lisp,v 1.10 2003/05/07 22:53:36 kevin Exp $
+;;;; $Id: parse-common.lisp,v 1.11 2003/05/07 22:54:16 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -204,7 +204,7 @@ append a unique number (starting at 2) onto a column name that is repeated in th
   (let ((col-counts (make-hash-table :test 'equal)))
     (loop for colname in (delimited-string-to-list (escape-column-name fmt) #\,)
          collect
-         (multiple-value-bind (value found) (gethash col col-counts)
+         (multiple-value-bind (value found) (gethash colname col-counts)
            (cond
              (found
                (incf (gethash colname col-counts))