diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index 424d5d372..8902fc9d7 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -361,8 +361,8 @@ sub open {
 	my $config = WebGUI::Config->new($webguiRoot,$configFile);
 	my $self = {_sessionId=>$sessionId, _config=>$config, _server=>$server};
 	bless $self , $class;
-	$self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * $self->setting->get("maxAttachmentSize")) if (defined $request);
-	return $self;
+	$self->{_request} = Apache2::Request->new($request, POST_MAX => 1024 * 100) if (defined $request);
+	return $self;  # $self->setting->get("maxAttachmentSize")
 }
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Session/DateTime.pm b/lib/WebGUI/Session/DateTime.pm
index 428173cc4..3749c513b 100644
--- a/lib/WebGUI/Session/DateTime.pm
+++ b/lib/WebGUI/Session/DateTime.pm
@@ -168,6 +168,19 @@ sub dayStartEnd {
         return ($dt->epoch, $end->epoch);
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 #-------------------------------------------------------------------
 
diff --git a/lib/WebGUI/Session/Env.pm b/lib/WebGUI/Session/Env.pm
index 746abf443..764dd7ad5 100644
--- a/lib/WebGUI/Session/Env.pm
+++ b/lib/WebGUI/Session/Env.pm
@@ -36,6 +36,19 @@ These methods are available from this package:
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Session/ErrorHandler.pm b/lib/WebGUI/Session/ErrorHandler.pm
index f7632933a..1cbd8744f 100644
--- a/lib/WebGUI/Session/ErrorHandler.pm
+++ b/lib/WebGUI/Session/ErrorHandler.pm
@@ -19,8 +19,6 @@ use strict;
 use Log::Log4perl;
 use Apache2::RequestUtil;
 
-$Log::Log4perl::caller_depth++;
-
 =head1 NAME 
 
 Package WebGUI::Session::ErrorHandler
@@ -144,6 +142,22 @@ sub debug {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+	
+sub DESTROY {
+	my $self = shift;
+	$Log::Log4perl::caller_depth++;
+	undef $self;
+}
+
+
+
 #-------------------------------------------------------------------
 
 =head2 error ( message )
@@ -304,6 +318,7 @@ sub new {
 	my $class = shift;
 	my $session = shift;
 	unless (Log::Log4perl->initialized()) {
+		$Log::Log4perl::caller_depth++;
  		Log::Log4perl->init( $session->config->getWebguiRoot."/etc/log.conf" );   
 	}
 	my $logger = Log::Log4perl->get_logger($session->config->getFilename);
diff --git a/lib/WebGUI/Session/Form.pm b/lib/WebGUI/Session/Form.pm
index 88171a646..0b9ef9090 100644
--- a/lib/WebGUI/Session/Form.pm
+++ b/lib/WebGUI/Session/Form.pm
@@ -69,6 +69,19 @@ sub AUTOLOAD {
         return $class->new($self->session, {name=>$fieldName})->getValueFromPost;
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Session/Http.pm b/lib/WebGUI/Session/Http.pm
index 336a180df..3db4d76dc 100644
--- a/lib/WebGUI/Session/Http.pm
+++ b/lib/WebGUI/Session/Http.pm
@@ -51,6 +51,19 @@ These methods are available from this package:
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
 
 
 #-------------------------------------------------------------------
diff --git a/lib/WebGUI/Session/Icon.pm b/lib/WebGUI/Session/Icon.pm
index 4dd133824..83faae8b7 100644
--- a/lib/WebGUI/Session/Icon.pm
+++ b/lib/WebGUI/Session/Icon.pm
@@ -125,6 +125,20 @@ sub cut {
         return $output;
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 delete ( urlParameters [, pageURL, confirmText ] )
diff --git a/lib/WebGUI/Session/Id.pm b/lib/WebGUI/Session/Id.pm
index 53b0c77c4..20512176a 100644
--- a/lib/WebGUI/Session/Id.pm
+++ b/lib/WebGUI/Session/Id.pm
@@ -43,6 +43,20 @@ These methods are available from this class:
 
 =cut
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 generate
diff --git a/lib/WebGUI/Session/Os.pm b/lib/WebGUI/Session/Os.pm
index 74d193c53..850dd5ff4 100644
--- a/lib/WebGUI/Session/Os.pm
+++ b/lib/WebGUI/Session/Os.pm
@@ -37,6 +37,20 @@ These methods are available from this package:
 =cut
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 
 #-------------------------------------------------------------------
 
diff --git a/lib/WebGUI/Session/Privilege.pm b/lib/WebGUI/Session/Privilege.pm
index cd37a84ad..d2c0078e6 100644
--- a/lib/WebGUI/Session/Privilege.pm
+++ b/lib/WebGUI/Session/Privilege.pm
@@ -65,6 +65,20 @@ sub adminOnly {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 insufficient ( )
diff --git a/lib/WebGUI/Session/Scratch.pm b/lib/WebGUI/Session/Scratch.pm
index 4e9fa5677..6d9f615b9 100644
--- a/lib/WebGUI/Session/Scratch.pm
+++ b/lib/WebGUI/Session/Scratch.pm
@@ -101,6 +101,20 @@ sub deleteName {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 get( varName ) 
diff --git a/lib/WebGUI/Session/Setting.pm b/lib/WebGUI/Session/Setting.pm
index e834cf1ae..7b920c1c6 100644
--- a/lib/WebGUI/Session/Setting.pm
+++ b/lib/WebGUI/Session/Setting.pm
@@ -70,6 +70,20 @@ sub add {
 	$self->session->db->write("insert into settings (name,value) values (".quote($name).",".quote($value).")");
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 
 #-------------------------------------------------------------------
 
diff --git a/lib/WebGUI/Session/Stow.pm b/lib/WebGUI/Session/Stow.pm
index 01c861ad5..e6b52eef1 100644
--- a/lib/WebGUI/Session/Stow.pm
+++ b/lib/WebGUI/Session/Stow.pm
@@ -77,6 +77,20 @@ sub deleteAll {
 }
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 get( varName ) 
diff --git a/lib/WebGUI/Session/Url.pm b/lib/WebGUI/Session/Url.pm
index 22b4abe28..9fa128535 100644
--- a/lib/WebGUI/Session/Url.pm
+++ b/lib/WebGUI/Session/Url.pm
@@ -88,6 +88,20 @@ sub append {
 	return $url;
 }
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 escape ( string )
diff --git a/lib/WebGUI/Session/Var.pm b/lib/WebGUI/Session/Var.pm
index add693cc7..33aecc9a3 100644
--- a/lib/WebGUI/Session/Var.pm
+++ b/lib/WebGUI/Session/Var.pm
@@ -46,6 +46,20 @@ These methods are available from this package:
 =cut
 
 
+#-------------------------------------------------------------------
+
+=head DESTROY ( )
+
+Deconstructor.
+
+=cut
+
+sub DESTROY {
+        my $self = shift;
+        undef $self;
+}
+
+
 #-------------------------------------------------------------------
         
 =head2 end ( )