--- loncom/xml/lonxml.pm	2001/06/12 22:39:36	1.92
+++ loncom/xml/lonxml.pm	2001/06/13 20:02:28	1.93
@@ -10,6 +10,7 @@
 # 5/26 Gerd Kortemeyer
 # 5/27 H. K. Ng
 # 6/2,6/3,6/8,6/9 Gerd Kortemeyer
+# 6/12,6/13 H. K. Ng
 
 package Apache::lonxml; 
 use vars 
@@ -501,7 +502,7 @@ sub init_safespace {
   $safehole->wrap(\&Math::Random::random_noncentral_f,$safeeval,'&math_random_noncentral_f');
   $safehole->wrap(\&Math::Random::random_normal,$safeeval,'&math_random_normal');
   $safehole->wrap(\&Math::Random::random_permutation,$safeeval,'&math_random_permutation');
-#  $safehole->wrap(\&Math::Random::random_permuted_index,$safeeval,'&math_random_permuted_index');
+  $safehole->wrap(\&Math::Random::random_permuted_index,$safeeval,'&math_random_permuted_index');
   $safehole->wrap(\&Math::Random::random_uniform,$safeeval,'&math_random_uniform');
   $safehole->wrap(\&Math::Random::random_poisson,$safeeval,'&math_random_poisson');
   $safehole->wrap(\&Math::Random::random_uniform_integer,$safeeval,'&math_random_uniform_integer');