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)]
Index: openacs-4/packages/lars-blogger/www/one-entry.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/one-entry.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/lars-blogger/www/one-entry.tcl	5 Apr 2005 12:08:47 -0000	1.16
+++ openacs-4/packages/lars-blogger/www/one-entry.tcl	25 Apr 2005 14:22:45 -0000	1.17
@@ -7,7 +7,12 @@
 
 set show_poster_p [ad_parameter "ShowPosterP" "" "1"]
 
-lars_blogger::entry::get -entry_id $entry_id -array blog
+if {[catch {lars_blogger::entry::get -entry_id $entry_id -array blog} errMsg]} {
+    if {[string equal $::errorCode NOT_FOUND]} {
+        ns_returnnotfound
+        ad_script_abort
+    }
+}
 
 # SWC