Index: openacs-4/packages/xotcl-core/tcl/test/xotcl-core-db-tutorial-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/test/Attic/xotcl-core-db-tutorial-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/xotcl-core/tcl/test/xotcl-core-db-tutorial-procs.tcl	5 Oct 2019 13:19:20 -0000	1.1.2.3
+++ openacs-4/packages/xotcl-core/tcl/test/xotcl-core-db-tutorial-procs.tcl	25 May 2020 18:52:44 -0000	1.1.2.4
@@ -163,9 +163,12 @@
     set cl [::xo::db::Class get_class_from_db -object_type person]
     aa_equals "fetched class is named ::xo::db::person" "::xo::db::person" $cl
 
-    aa_equals "the SQL attributes are slot names" \
-        [lsort [$cl array names db_slot]] \
-        {first_names last_name person_id}
+    set attributes [lsort [$cl array names db_slot]]
+    aa_equals "the SQL attributes $attributes are in slot names" \
+        {1 1 1} \
+        [lmap a {first_names last_name person_id} {
+          expr {$a in $attributes}
+        }]
   }
 }