Index: openacs-4/packages/bookshelf/tcl/amazon-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookshelf/tcl/amazon-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/bookshelf/tcl/amazon-procs.tcl	30 Sep 2002 18:10:55 -0000	1.1
+++ openacs-4/packages/bookshelf/tcl/amazon-procs.tcl	21 Jan 2003 14:54:26 -0000	1.2
@@ -88,7 +88,7 @@
 
         set amazon_info_page [ns_httpget $url]
 
-        if { ![regexp {<title>\s*Amazon.com: buying info: ([^<]*)\s*</title>} $amazon_info_page match title] } {
+        if { ![regexp {<title>\s*Amazon.com: [^:]+: ([^<]*)\s*</title>} $amazon_info_page match title] } {
             set row(book_title) "-"
         } else {
             set row(book_title) [string trim $title]