[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp

[Brian Mastenbrook]

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

Modified Files:
	web-server.lisp 
Log Message:
Whoops, bug fix slightly after release! not that it would have harmed anything..:.

Date: Tue Feb  3 22:26:03 2004
Author: bmastenbrook

Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.24 lisppaste2/web-server.lisp:1.25
--- lisppaste2/web-server.lisp:1.24	Tue Feb  3 21:55:36 2004
+++ lisppaste2/web-server.lisp	Tue Feb  3 22:26:03 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.24 2004/02/04 02:55:36 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.25 2004/02/04 03:26:03 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -117,7 +117,7 @@
                                            (concatenate 'string
                                                         (araneida:urlstring
                                                          (araneida:merge-url *display-paste-url*
-                                                                             (prin1-to-string (paste-number paste)))) "#" (prin1-to-string (paste-number paste)))
+                                                                             (prin1-to-string (paste-number paste)))))
                                            (date:universal-time-to-rfc-date (paste-universal-time paste))
                                            (encode-for-pre (paste-title paste))
                                            (encode-for-pre (paste-user paste))