X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/937d96b50df043aa12acbdd57f292ba13926f6cc..487243dba4467de347ed11697cc6adf938495755:/src/static-presentations.lisp?ds=inline

diff --git a/src/static-presentations.lisp b/src/static-presentations.lisp
index bdc0b5e..bb5cf0d 100644
--- a/src/static-presentations.lisp
+++ b/src/static-presentations.lisp
@@ -561,7 +561,7 @@ This method is also used by relation-slot-presentations for the same reason."))
   (unless (string= "" value)
     (let ((i (parse-integer value :junk-allowed t)))
       (when i
-	(setf (presentation-slot-value slot instance) (parse-integer value))))))
+	(setf (presentation-slot-value slot instance) i)))))
 
 (defmethod present-slot ((slot integer-slot-presentation) instance)
   (if (editablep slot)