From b8d8e9cb015bf8b1c172cb79b4dfd27cd1e3000e Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Thu, 25 Aug 2005 14:06:38 +0000
Subject: [PATCH] *** empty log message ***

---
 lib/WebGUI/Asset/Wobject/Navigation.pm | 4 ++--
 lib/WebGUI/Form/Group.pm               | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Navigation.pm b/lib/WebGUI/Asset/Wobject/Navigation.pm
index c9be0f16d..75b4f29f1 100644
--- a/lib/WebGUI/Asset/Wobject/Navigation.pm
+++ b/lib/WebGUI/Asset/Wobject/Navigation.pm
@@ -317,8 +317,8 @@ sub view {
 	} elsif ($self->get("startType") eq "relativeToCurrentUrl") {
 		if ($self->get("startPoint") < 0) { 
 			$start = WebGUI::Asset->newByLineage(substr($current->get("lineage"),0,
-				($current->getLineageLength + $self->get("startPoint") + 1) * 6
-				));
+				($current->getLineageLength - $self->get("startPoint") + 1) * 6))
+					if (($current->getLineageLength - $self->get("startPoint") + 1) * 6);
 		} elsif ($self->get("startPoint") > 0) { 
 			my $lineage = $current->get("lineage");
 			for (1..$self->get("startPoint")) {
diff --git a/lib/WebGUI/Form/Group.pm b/lib/WebGUI/Form/Group.pm
index 354aeb59e..c0bf288ac 100644
--- a/lib/WebGUI/Form/Group.pm
+++ b/lib/WebGUI/Form/Group.pm
@@ -165,7 +165,7 @@ Creates a series of hidden fields representing the data in the list.
 
 sub toHtmlAsHidden {
         my $self = shift;
-        return WebGUI::Form::hiddenList->new(
+        return WebGUI::Form::HiddenList->new(
                 value=>$self->{value},
                 defaultValue=>$self->{defaultValue},
                 name=>$self->{name},