[Print class-id-column using ~A rather than ~S
clinton@unknownlamer.org**20101231081510
 Ignore-this: db8b9d885cb99360ddbf12e13dabbdb5
 * Printing the package is not wanted
] hunk ./src/db-access-object.lisp 102
-      (format stream ":~S ~S"
+      (format stream ":~A ~S"