Index: openacs-4/packages/lars-blogger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	17 May 2004 15:15:19 -0000	1.22
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	25 Apr 2005 14:22:44 -0000	1.23
@@ -92,7 +92,9 @@
     # Select the info into the upvar'ed Tcl Array
     upvar $array row
 
-    db_1row select_entry {} -column_array row 
+    if {![db_0or1row select_entry {} -column_array row]} {
+        error "lars_blogger::entry::get: entry $entry_id not found" {} NOT_FOUND
+    }
 
     set row(entry_date_pretty) [lc_time_fmt $row(entry_date_ansi) "%q %X"]
     set row(package_url) [lars_blog_public_package_url -package_id $row(package_id)]