diff --git a/lib/WebGUI/AssetClipboard.pm b/lib/WebGUI/AssetClipboard.pm
index d19aaa568..b231ce4e5 100644
--- a/lib/WebGUI/AssetClipboard.pm
+++ b/lib/WebGUI/AssetClipboard.pm
@@ -66,7 +66,7 @@ sub cut {
 	$session->db->write("update asset set state='clipboard-limbo' where lineage like ? and state='published'",[$self->get("lineage").'%']);
 	$session->db->write("update asset set state='clipboard', stateChangedBy=?, stateChanged=? where assetId=?", [$session->user->userId, $session->datetime->time(), $self->getId]);
 	$session->db->commit;
-	$self->{_properties}{state} = "clipboard";
+	$self->state("clipboard");
     foreach my $asset ($self, @{$self->getLineage(['descendants'], {returnObjects => 1})}) {
         $asset->purgeCache;
         $asset->updateHistory('cut');
diff --git a/lib/WebGUI/AssetLineage.pm b/lib/WebGUI/AssetLineage.pm
index 9e070bcd2..01dbbf1f1 100644
--- a/lib/WebGUI/AssetLineage.pm
+++ b/lib/WebGUI/AssetLineage.pm
@@ -184,7 +184,7 @@ sub demote {
 		where parentId=? and state='published' and lineage>?",[$self->get('parentId'), $self->get('lineage')]);
 	if (defined $sisterLineage) {
 		$self->swapRank($sisterLineage, undef, $outputSub);
-		$self->{_properties}{lineage} = $sisterLineage;
+		$self->lineage($sisterLineage);
 		return 1;
 	}
 	return 0;
@@ -851,7 +851,7 @@ sub promote {
 		where parentId=? and state='published' and lineage<?",[$self->get("parentId"), $self->get("lineage")]);
 	if (defined $sisterLineage) {
 		$self->swapRank($sisterLineage, undef, $outputSub);
-		$self->{_properties}{lineage} = $sisterLineage;
+		$self->lineage($sisterLineage);
 		return 1;
 	}
 	return 0;
@@ -885,8 +885,8 @@ sub setParent {
     $self->cascadeLineage($lineage);
     $self->session->db->commit;
     $self->updateHistory("moved to parent ".$newParent->getId);
-    $self->{_properties}{lineage}  = $lineage;
-    $self->{_properties}{parentId} = $newParent->getId;
+    $self->lineage($lineage);
+    $self->parentId($newParent->getId);
     $self->purgeCache;
     $self->{_parent} = $newParent;
     return 1;
@@ -934,7 +934,7 @@ sub setRank {
 	}
     $outputSub->('moving %s back', $self->getTitle);
 	$self->cascadeLineage($previous,$temp);
-	$self->{_properties}{lineage} = $previous;
+	$self->lineage($previous);
 	$self->session->db->commit;
 	$self->purgeCache;
 	$self->updateHistory("changed rank");