diff --git a/fhem/CHANGED b/fhem/CHANGED
index 3c5e870a0..d331853f1 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - bugfix:  89_FULLY: Support for Fully version 1.33
  - feature: 22_HOMEMODE: v1.4.10 add support for PET
  - change:  98_DOIFtools: remove unessesary code due to changes in console.js
  - bugfix:  70_ZoneMinder: fixed JSON-parsing bug
diff --git a/fhem/FHEM/89_FULLY.pm b/fhem/FHEM/89_FULLY.pm
index db915e804..8c68749f7 100755
--- a/fhem/FHEM/89_FULLY.pm
+++ b/fhem/FHEM/89_FULLY.pm
@@ -1,6 +1,6 @@
 ##############################################################################
 #
-#  89_FULLY.pm 1.2
+#  89_FULLY.pm 1.3
 #
 #  $Id$
 #
@@ -410,7 +410,7 @@ sub FULLY_Get ($@)
 			Log3 $name, 2, "FULLY: [$name] Command failed";
 			return "FULLY: Command failed";
 		}
-		elsif ($response =~ /Wrong password/) {
+		elsif ($result =~ /Wrong password/) {
 			Log3 $name, 2, "FULLY: [$name] Wrong password";
 			return "FULLY: Wrong password";
 		}
@@ -539,6 +539,7 @@ sub FULLY_ExecuteCB ($$$)
 		if ($param->{cmdno} == $param->{cmdcnt}) {
 			# Last request, update readings
 			Log3 $name, 4, "FULLY: [$name] Last command executed. Processing results";
+			Log3 $name, 5, "FULLY: [$name] $data";
 			my $result = FULLY_ProcessDeviceInfo ($name, $data);
 			if (!FULLY_UpdateReadings ($hash, $result)) {
 				Log3 $name, 2, "FULLY: [$name] Command failed";
@@ -656,8 +657,11 @@ sub FULLY_ProcessDeviceInfo ($$)
 	return "$name|0|state=failed" if (!defined ($result) || $result eq '');
 	return "$name|0|state=wrong password" if ($result =~ /Wrong password/);
 	
+	# HTML code format
+	# <td class='table-cell'>Kiosk mode</td><td class='table-cell'>off</td>
+	
 	my $parameters = "$name|1";
-	while ($result =~ /table-cell\">([^<]+)<\/td><td class="table-cell">([^<]+)</g) {
+	while ($result =~ /table-cell.>([^<]+)<\/td><td class=.table-cell.>([^<]+)</g) {
 		my $rn = lc($1);
 		my $rv = $2;
 		$rv =~ s/\s+$//;