X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/5dea194ed068c8ff73dd65849d92be4ee6c7097b..b8c8985156e0ce7de77973d5899221116dcc3c96:/src/static-presentations.lisp

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)