Index: openacs-4/packages/acs-admin/www/apm/version-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit.tcl,v
diff -u -r1.14 -r1.14.2.1
--- openacs-4/packages/acs-admin/www/apm/version-edit.tcl	24 Apr 2018 10:49:48 -0000	1.14
+++ openacs-4/packages/acs-admin/www/apm/version-edit.tcl	13 Mar 2019 09:45:46 -0000	1.14.2.1
@@ -77,22 +77,22 @@
 
 <tr>
   <th style="text-align:right; white-space: nowrap">OpenACS Core:</th>
-  <td>[ad_decode $initial_install_p t Yes No]</td>
+  <td>[expr {$initial_install_p ? "Yes" : "No"}]</td>
 </tr>
 
 <tr>
   <th style="text-align:right; white-space: nowrap">Singleton:</th>
-  <td>[ad_decode $singleton_p t Yes No]</td>
+  <td>[expr {$singleton_p ? "Yes" : "No"}]</td>
 </tr>
 
 <tr>
   <th style="text-align:right; white-space: nowrap">Implements Subsite:</th>
-  <td>[ad_decode $implements_subsite_p t Yes No]</td>
+  <td>[expr {$implements_subsite_p ? "Yes" : "No"}]</td>
 </tr>
 
 <tr>
   <th style="text-align:right; white-space: nowrap">Inherit Templates:</th>
-  <td>[ad_decode $inherit_templates_p t Yes No]</td>
+  <td>[expr {$inherit_templates_p ? "Yes" : "No"}]</td>
 </tr>
 
 <tr>
@@ -127,8 +127,8 @@
   <th style="text-align:right"><br>Description:</th>
   <td><textarea name="description" cols="60" rows="5">[ns_quotehtml $description]</textarea><br>
 This description is <select name="description_format">
-<option value="text/html" [ad_decode $description_format "text/plain" "" "selected"]>HTML-formatted.
-<option value="text/plain" [ad_decode $description_format "text/plain" "selected" ""]>plain text.
+<option value="text/html" [expr {$description_format eq "text/plain" ? "" : "selected"}]>HTML-formatted.
+<option value="text/plain" [expr {$description_format eq "text/plain" ? "selected" : ""}]>plain text.
 </select>
 </td>
 </tr>