Index: /branches/release-40/lib/MT/Template/ContextHandlers.pm
===================================================================
--- /branches/release-40/lib/MT/Template/ContextHandlers.pm (revision 2563)
+++ /branches/release-40/lib/MT/Template/ContextHandlers.pm (revision 2565)
@@ -12642,5 +12642,5 @@
 
 sub _load_sibling_categories {
-    my ($ctx, $cat) = @_;
+    my ($ctx, $cat, $class_type) = @_;
     my $blog_id = $cat->blog_id;
     my $r = MT::Request->instance;
@@ -12648,6 +12648,7 @@
     return $cats if $cats;
 
-    my @cats = MT::Category->load({blog_id => $blog_id, parent => $cat->parent},
-                                  {'sort' => 'label', direction => 'ascend'});
+    my $class = MT->model($class_type);
+    my @cats = $class->load({blog_id => $blog_id, parent => $cat->parent},
+                            {'sort' => 'label', direction => 'ascend'});
     $r->stash('__cat_cache_'.$blog_id.'_'.$cat->parent, \@cats);
     \@cats;
@@ -12687,5 +12688,5 @@
         (($uncompiled =~ /<MT:?Pages/i) ? 1 : 0);
     my $blog_id = $cat->blog_id;
-    my $cats = _load_sibling_categories($ctx, $cat);
+    my $cats = _load_sibling_categories($ctx, $cat, $class_type);
     my ($pos, $idx);
     $idx = 0;