diff --git a/Form/JSON/OBJ.cls.xml b/Form/JSON/OBJ.cls.xml
index b8d0adb..692dc47 100644
--- a/Form/JSON/OBJ.cls.xml
+++ b/Form/JSON/OBJ.cls.xml
@@ -7,6 +7,21 @@
 <Super>%ZEN.Auxiliary.jsonProvider</Super>
 <TimeCreated>64099,77101.820492</TimeCreated>
 
+<Method name="SetVisited">
+<ClassMethod>1</ClassMethod>
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec><![CDATA[&pVisited,pObject:%RegisteredObject,pLevel:%Integer]]></FormalSpec>
+<Implementation><![CDATA[
+	#include %occCPTJSgen
+	set code = ##class(Form.Settings).getSetting("visited")
+	if code'="" {
+		do %code.WriteLine($$$TAB _ code)
+	} else {
+		do %code.WriteLine($$$TAB _ "set pVisited(pObject) = """"")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="%ObjectToJSON">
 <Description><![CDATA[
 Write out the contents of object instance <var>pObject</var> to
@@ -44,7 +59,7 @@ w - Windows-style cr/lf newline<br/>]]></Description>
 			Quit
 		}
 		
-		set pVisited(pObject) = ""
+		do ..SetVisited(.pVisited, pObject, pLevel)
 		
 		Set tClass = $classname(pObject)
 		
diff --git a/Form/Settings.cls.xml b/Form/Settings.cls.xml
index fac283c..bda38e2 100644
--- a/Form/Settings.cls.xml
+++ b/Form/Settings.cls.xml
@@ -43,6 +43,8 @@ Set setting "name" value</Description>
 		if ((value'="utc") && (value'="ignore")) {
 			set sc = $$$ERROR($$$GeneralError, "Value '" _value _ "' is not a valid timezone setting. Valid values are: ignore, utc")
 		}
+	} elseif name = "visited" {
+		/// TODO add check	
 	} else {
 		set sc = $$$ERROR($$$GeneralError, "Setting '" _ name _ "' does not exist")
 	}