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

diff --git a/src/static-presentations.lisp b/src/static-presentations.lisp
index 302444b..bdc0b5e 100644
--- a/src/static-presentations.lisp
+++ b/src/static-presentations.lisp
@@ -1,6 +1,6 @@
 ;;;; -*- lisp -*-
 
-(in-package :mewa)
+(in-package :lisp-on-lines)
 
 (defcomponent presentation ()
   ((css-class :accessor css-class :initarg :css-class :initform nil))
@@ -422,8 +422,7 @@ This method is also used by relation-slot-presentations for the same reason."))
   (:type-name boolean))
 
 (defmethod present-slot ((slot boolean-slot-presentation) instance)
-  (<ucw:input :type "checkbox" :accessor (presentation-slot-value slot instance))
-  (setf (presentation-slot-value slot instance) nil))
+  (<ucw:input :type "checkbox" :accessor (presentation-slot-value slot instance)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;; strings