[bknr-cvs] r2152 - trunk/bknr/src/images

[bknr at bknr.net]

Author: hhubner
Date: 2007-04-15 03:12:54 -0400 (Sun, 15 Apr 2007)
New Revision: 2152

Modified:
   trunk/bknr/src/images/image.lisp
Log:
correct wording


Modified: trunk/bknr/src/images/image.lisp
===================================================================
--- trunk/bknr/src/images/image.lisp	2007-04-15 07:11:08 UTC (rev 2151)
+++ trunk/bknr/src/images/image.lisp	2007-04-15 07:12:54 UTC (rev 2152)
@@ -132,7 +132,7 @@
   (unless (scan #?r"\D" name)
     (error "invalid image name ~A, needs to contain at least one non-digit character" name))
   (when (store-image-with-name name)
-    (error "can't import image with name ~A, an image with name already exists in the datastore" name))
+    (error "can't import image with name ~A, an image with this name already exists in the datastore" name))
   (with-image-from-file (image pathname)
     ;; xxx not tx safe.  hm.
     (let ((store-image (apply #'make-object