[bknr-cvs] hans changed deployed/bos/projects/bos/web/poi-handlers.lisp

[BKNR Commits]

Revision: 4411
Author: hans
URL: http://bknr.net/trac/changeset/4411

fix incorrect INTERN usage
U   deployed/bos/projects/bos/web/poi-handlers.lisp

Modified: deployed/bos/projects/bos/web/poi-handlers.lisp
===================================================================
--- deployed/bos/projects/bos/web/poi-handlers.lisp	2009-06-03 07:54:58 UTC (rev 4410)
+++ deployed/bos/projects/bos/web/poi-handlers.lisp	2009-06-04 09:54:49 UTC (rev 4411)
@@ -367,7 +367,7 @@
       (setq poi (find-store-object poi :class 'poi))
       (let* ((new-medium-type (if medium
                                   (type-of medium)
-                                  (intern (string-upcase new-medium-type))))
+                                  (find-symbol (string-upcase new-medium-type) :bos.web)))
              (new-medium (make-new-medium new-medium-type poi)))
         (when medium
           (very-shallow-copy-textual-attributes medium new-medium)