Index: openacs-4/packages/acs-tcl/tcl/test/test-permissions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/test-permissions-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/test-permissions-procs.tcl	7 Aug 2017 23:48:00 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/test-permissions-procs.tcl	27 Mar 2018 12:22:17 -0000	1.4
@@ -32,11 +32,11 @@
 	# Grant admin privilege
  	permission::grant -party_id $user_id -object_id $new_package_id -privilege "admin"  
  	# Verifying the admin privilege on the user
-        aa_true "testing admin privilige" \
+        aa_true "testing admin privilege" \
  	    [expr {[permission::permission_p -party_id $user_id -object_id $new_package_id -privilege "admin"] == 1}]
  	# Revoking admin privilege
  	permission::revoke -party_id $user_id -object_id $new_package_id -privilege "admin"
- 	aa_true "testing if admin privilige was revoked" \
+ 	aa_true "testing if admin privilege was revoked" \
  	    [expr {[permission::permission_p -party_id $user_id -object_id $new_package_id -privilege "admin"] == 0}]
 
 	# Grant read privilege
@@ -47,7 +47,7 @@
         # Revoking read privilege
         permission::revoke -party_id $user_id -object_id $new_package_id -privilege "read"
 	# We tested with a query because we have problems with inherit
-	aa_true "testing if read privilige was revoked" \
+	aa_true "testing if read privilege was revoked" \
 	    [expr {[db_string test_read "select 1 from acs_permissions where object_id = :new_package_id and grantee_id = :user_id" -default 0] ==  0}]
 
         # Grant write privilege