[Lisppaste-cvs] CVS update: lisppaste2/persistent-pastes.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv28903

Modified Files:
	persistent-pastes.lisp 
Log Message:
stupid bugfix

Date: Sat Jan 17 13:29:41 2004
Author: bmastenbrook

Index: lisppaste2/persistent-pastes.lisp
diff -u lisppaste2/persistent-pastes.lisp:1.3 lisppaste2/persistent-pastes.lisp:1.4
--- lisppaste2/persistent-pastes.lisp:1.3	Sat Jan 17 13:07:21 2004
+++ lisppaste2/persistent-pastes.lisp	Sat Jan 17 13:29:41 2004
@@ -28,7 +28,7 @@
                                :title title
                                :contents contents
                                :universal-time universal-time
-                               :channel (if (not channel) (car *channels*))
+                               :channel (if (not channel) (car *channels*) channel)
                                :annotations (mapcar #'(lambda (e) (make-paste-from-alist e)) annotations))))
 
 (defun read-pastes-from-file (file-name)