Index: openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl	29 Jun 2004 10:17:48 -0000	1.5
+++ openacs-4/packages/bookmarks/tcl/bookmarks-procs.tcl	9 Sep 2013 12:19:56 -0000	1.6
@@ -194,7 +194,7 @@
     set title ""
     regexp -nocase {<title>([^<]*)</title>} $html_code match title
 
-    if {[string length $title]> [ad_parameter URLTitleMaxLength] || [string length $title] > 499 } {
+    if {[string length $title]> [parameter::get -parameter URLTitleMaxLength] || [string length $title] > 499 } {
 	set title "[string range $title 0 496]..."
     }
 
@@ -208,7 +208,7 @@
     set description ""
     regexp -nocase {<meta name="description" content="([^"]*)"} $html_code match description
 
-    if {[string length $description]> [ad_parameter URLDescriptionMaxLength] || [string length $description] > 3999 } {
+    if {[string length $description]> [parameter::get -parameter URLDescriptionMaxLength] || [string length $description] > 3999 } {
 	set description "[string range $description 0 3996]..."
     }
 
@@ -221,7 +221,7 @@
     set keywords ""
     regexp -nocase {<meta name="keywords" content="([^"]*)">} $html_code match keywords
 
-    if {[string length $keywords]> [ad_parameter URLKeywordsMaxLength] || [string length $keywords] > 3999 } {
+    if {[string length $keywords]> [parameter::get -parameter URLKeywordsMaxLength] || [string length $keywords] > 3999 } {
 	set keywords "[string range $keywords 0 3996]..."
     }