Index: openacs-4/packages/notifications/tcl/notification-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-reply-procs.tcl,v
diff -u -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	4 Aug 2003 14:17:37 -0000	1.3.2.2
+++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	5 Aug 2003 13:07:06 -0000	1.3.2.3
@@ -27,7 +27,7 @@
         set extra_vars [ns_set create]
 
         # Truncate subject to 100 chars, which is the limit in the data model (for some obscure reason)
-        set subject [string range $subject 0 100]
+        set subject [string range $subject 0 99]
         
         oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {reply_id object_id type_id from_user subject content reply_date}